home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / ADEMO2.INC < prev    next >
Text File  |  1992-08-31  |  2KB  |  43 lines
  1.    {===================================================================
  2.  
  3.    Simple version; uses only MSGBOX.MessageBox
  4.  
  5.    ===================================================================}
  6. function EditorDialog ( Dialog : Integer ;
  7.                         Info : Pointer ) : word ; FAR ;
  8. var
  9.    R                         : TRect ;
  10.    T                         : TPoint ;
  11. begin
  12.    case Dialog of
  13.    edOutOfMemory :
  14.       EditorDialog           := MessageBox ( ^C'Not enough memory for this operation.' ,
  15.                                              NIL ,
  16.                                              mfError + mfOkButton ) ;
  17.    edReadError :
  18.       EditorDialog           := MessageBox ( ^C'Error reading file %s.' ,
  19.                                              @Info ,
  20.                                              mfError + mfOkButton ) ;
  21.    edWriteError :
  22.       EditorDialog           := MessageBox ( ^C'Error writing file %s.' ,
  23.                                              @Info ,
  24.                                              mfError + mfOkButton ) ;
  25.    edCreateError :
  26.       EditorDialog           := MessageBox ( ^C'Error creating file %s.' ,
  27.                                              @Info ,
  28.                                              mfError + mfOkButton ) ;
  29.    edSaveModify :
  30.       EditorDialog           := MessageBox ( ^C'%s has been modified. Save?' ,
  31.                                              @Info ,
  32.                                              mfInformation + mfYesNoCancel ) ;
  33.    edSaveUntitled :
  34.       EditorDialog           := MessageBox ( ^C'Save untitled file?' ,
  35.                                              NIL ,
  36.                                              mfInformation + mfYesNoCancel ) ;
  37.    else
  38.       MessageBox ( ^C'Unknown DIALOG requested!' ,
  39.                    NIL ,
  40.                    mfError + mfOkButton ) ;
  41.    end ;
  42. end ;
  43.